home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 50 / 050.d81 / screen switcher (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  76 lines
  1. 10 poke147,0:sys57812"ss",8,1:sys62631
  2. 20 poke53280,0:poke53281,0:dimcl(8),d$(15)
  3. 30 print"[147]"
  4. 40 print"[129][211] [195] [210] [197] [197] [206]    [211] [215] [201] [212] [195] [200] [197] [210]   [196] [197] [205] [207]"
  5. 50 print"[149]    by [198]ender [212]ucker and [199]erry [193]bear"
  6. 60 print"[159]  [212]his program demonstrates how you can"
  7. 70 print"use [211]creen [211]witcher in your programs to"
  8. 80 print"flip in an [201]nstructions [211]creen at any"
  9. 90 print"point while saving the current play"
  10. 100 print"screen.  [211]ee the listing of this program"
  11. 110 print"[145]to see how the four [211][217][211]tem calls work."
  12. 120 print"    [158][211][217][211] 886[154] - [211]ave [211]creen #1"
  13. 130 print"    [158][211][217][211] 907[154] - [210]estore [211]creen #1"
  14. 140 print"    [158][211][217][211] 928[154] - [211]ave [211]creen #2
  15. 150 [153]"    sys(NULL)(NULL)(NULL) 949cont - (NULL)estore (NULL)creen #2"
  16. 160 [153]"       (NULL)ress (NULL)(NULL)atnlenvalwait to continue"
  17. 165 [153]"  (NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL)wait to return to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)on"
  18. 170 [158]886:[143] save info screen to $c000
  19. 180 [161]a$:[139]a$[179][177]" "[175] a$[179][177][199](13)[167]180
  20. 185 [139]a$[178]" "[167]190
  21. 187 [137]666
  22. 190 [153]"load"
  23. 200 [129]i[178]0[164]7:[135]cl(i):[130]
  24. 210 [129]i[178]0[164]14:[135]d$(i):[130]
  25. 220 n1[178]1024:n2[178]40:n3[178].625
  26. 230 n4[178]39.9999:cs[178]54272:t[178]0
  27. 240 [129]w[178]0[164]30
  28. 250 [129]i[178]15[164]3[169][171]1
  29. 260 [129]j[178]0[164]17
  30. 270 k[178]i[170]j:c[178]cl((j[172]3[173](i[170]3)[170]i[172]w[173]12)[175]7)
  31. 280 y1[178]n1[170]n2[172][181](n3[172]i)
  32. 290 y2[178]n1[170]n2[172][181](n3[172]k)
  33. 300 y3[178]n1[170]n2[172][181](n3[172](n4[171]i))
  34. 310 y4[178]n1[170]n2[172][181](n3[172](n4[171]k)):x[178]c[171](30[171]t)
  35. 320 [151]i[170]y2,c:[151](i[170]y2)[170]cs,x
  36. 330 [151]n2[171]i[170]y4,c:[151](n2[171]i[170]y4)[170]cs,x
  37. 340 [151]n2[171]i[170]y2,c:[151](n2[171]i[170]y2)[170]cs,x
  38. 350 [151]i[170]y4,c:[151](i[170]y4)[170]cs,x
  39. 360 [151]k[170]y1,c:[151](k[170]y1)[170]cs,x
  40. 370 [151]n2[171]k[170]y3,c:[151](n2[171]k[170]y3)[170]cs,x
  41. 380 [151]k[170]y3,c:[151](k[170]y3)[170]cs,x
  42. 390 [151]n2[171]k[170]y1,c:[151](n2[171]k[170]y1)[170]cs,x
  43. 400 [139][194](203)[178]60[167][141]630
  44. 410 [139]j[173]4[179][177][181](j[173]4)[167]440
  45. 420 [151]646,7:[151]214,11:[153]:[153][163]16)d$(l)
  46. 430 l[178]l[170]1:[139]l[177]15[167]l[178]0
  47. 440 [130]:[130]
  48. 450 t[178]t[170]1:[139]t[178]15[167]t[178]0
  49. 460 [130]:[137]240
  50. 470 [131]42,94,170,35,91,95,127,160
  51. 480 [131]"chr$reetings"
  52. 490 [131]"  from   "
  53. 500 [131]"  chr$erry  "
  54. 510 [131]"  atnbear  "
  55. 520 [131]"   and   "
  56. 530 [131]"  ascender "
  57. 540 [131]"  (NULL)ucker "
  58. 550 [131]"  (NULL)ress  "
  59. 560 [131]"  (NULL)(NULL)atnlenval  "
  60. 570 [131]" to save "
  61. 580 [131]" current "
  62. 590 [131]"  screen "
  63. 600 [131]" and see "
  64. 610 [131]"  right$nfo   "
  65. 620 [131]"  right$nfo   "
  66. 630 [158]928:[143] save screen 2
  67. 640 [158]907:[143] and restore info screen
  68. 650 [151]198,0
  69. 660 [161]a$:[139]a$[179][177]" "[175]a$[179][177][199](13)[167]660
  70. 665 [139]a$[178]" "[167]670
  71. 666 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er%:[160]15
  72. 667 [139]er%[179][177]63[167][128]
  73. 668 [147]"hello connect",8
  74. 670 [158]949:[143] back to coffee break
  75. 680 [142]
  76.